home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 1999 February / CT_SW9902.ISO / mac / software / wissen / daten / gnuplot.hqx / gnuplot.2.0b4 / Interapplication / C Examples / gnuplot interface test.c < prev    next >
C/C++ Source or Header  |  1997-04-27  |  1KB  |  48 lines
  1. #include <Types.h>
  2. #include <Files.h>
  3. #include <QuickDraw.h>
  4. #include <Windows.h>
  5. #include <Dialogs.h>
  6. #include <StandardFile.h>
  7. #include "gnuplotInterface.h"
  8. #include <stdio.h>
  9. #include <string.h>
  10.  
  11. char testData[] = "1 1\r2 2\r3 3\r4 4\r5 5\r6 6\r7 7\r8 8\r9 8\r10 8\r11 8\r12 8\r13 4\r14 0\r";
  12.  
  13. void main() 
  14.  
  15. {
  16.     char    command[] = "plot sin(x)";
  17.     SFTypeList    typeList = {'TEXT'};
  18.     StandardFileReply    inputFileRep;
  19.     long    length, err;
  20.     
  21.     InitGraf(&qd.thePort);
  22.     FlushEvents(everyEvent, 0);
  23.     InitWindows();
  24.     InitMenus();
  25.     TEInit();
  26.     InitDialogs(NULL);
  27.     InitCursor();
  28.     MaxApplZone();
  29. //    printf("gnuplot / Apple event demo\n");
  30.     StandardGetFile(NULL, 1, typeList, &inputFileRep);
  31.  
  32.     GnuplotInitializeObjects();
  33.     if (GnuplotLaunchApplicationToFront())
  34.         return;
  35.  
  36.     length = strlen(command);
  37.     GnuplotExecuteCommand(command, length);
  38.     if (inputFileRep.sfGood) {
  39.         err = GnuplotPlot(&inputFileRep.sfFile, 1, NULL, 0, 0, 0, gp_type_lines);
  40.         err = GnuplotPlot(&inputFileRep.sfFile, 1, testData, strlen(testData), 0, 0, gp_type_lines);
  41. //        if(err)
  42. //            printf("Apple Event Error - plot 2: %ld\n", err);
  43.         err = GnuplotPlot(&inputFileRep.sfFile, 1, NULL, 0, 1, 0, gp_type_boxes);
  44. //        if(err)
  45. //            printf("Apple Event Error - plot 3: %ld\n", err);
  46.     }
  47.     GnuplotShutDownObjects();
  48. }